home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dattim / datetime.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.6 KB  |  118 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Date/Time Example"
  5.    ClientHeight    =   5580
  6.    ClientLeft      =   870
  7.    ClientTop       =   1530
  8.    ClientWidth     =   4680
  9.    Height          =   5985
  10.    Left            =   810
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5580
  14.    ScaleWidth      =   4680
  15.    Top             =   1185
  16.    Width           =   4800
  17.    Begin DirListBox Dir1 
  18.       Height          =   4152
  19.       Left            =   432
  20.       TabIndex        =   2
  21.       Top             =   1296
  22.       Width           =   1956
  23.    End
  24.    Begin FileListBox File1 
  25.       Height          =   4320
  26.       Left            =   2556
  27.       TabIndex        =   3
  28.       Top             =   1008
  29.       Width           =   1770
  30.    End
  31.    Begin DriveListBox Drive1 
  32.       Height          =   288
  33.       Left            =   432
  34.       TabIndex        =   1
  35.       Top             =   1008
  36.       Width           =   1956
  37.    End
  38.    Begin PictureBox pic1 
  39.       Height          =   552
  40.       Left            =   432
  41.       ScaleHeight     =   525
  42.       ScaleWidth      =   3870
  43.       TabIndex        =   0
  44.       Top             =   108
  45.       Width           =   3900
  46.    End
  47.    Begin Label Label1 
  48.       Alignment       =   2  'Center
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "Double Click a file to display it's date/time"
  51.       ForeColor       =   &H00000080&
  52.       Height          =   228
  53.       Left            =   252
  54.       TabIndex        =   4
  55.       Top             =   720
  56.       Width           =   4332
  57.    End
  58. DefInt A-Z
  59. Sub Dir1_Change ()
  60.     pic1.Cls
  61.     file1.path = dir1.path
  62. End Sub
  63. Sub Drive1_Change ()
  64.     pic1.Cls
  65.     x = drive1.listindex
  66.     drive$ = RTrim$(drive1.list(x))
  67.     dir1.path = drive$
  68.     file1.path = drive$
  69. End Sub
  70. Sub File1_DblClick ()
  71. '================================================================
  72. ' Double clicking on the file list box will display the files
  73. ' full path, name, date, time and size in the pic1 control
  74. '================================================================
  75.     x = file1.listindex
  76.     file$ = file1.path
  77.     '=== setup the full path to the desired file
  78.     If Right$(file$, 1) = "\" Then
  79.         file$ = file$ + RTrim$(file1.list(x))
  80.     Else
  81.         file$ = file$ + "\" + RTrim$(file1.list(x))
  82.     End If
  83.     '=== setup an OFSTRUCT data structure
  84.     Dim a As OFSTRUCT
  85.     '=== call the OpenFile api call to get needed data
  86.     x = OpenFile(file$, a, OF_EXIST)
  87.     '=== construct the date/time stamp
  88.     fmonth = ((a.r1 And &H7FFF) \ 32) And &HF
  89.     fday = a.r1 And &H1F
  90.     fyear = (a.r1 And &H7FFF) \ 512 + 80
  91.     fhour = (a.r2 And &H7FFF) \ 2048
  92.     ampm$ = "am"
  93.     If a.r2 < 0 Then
  94.         fhour = (fhour + 16) - 12
  95.         ampm$ = "pm"
  96.     End If
  97.     If fhour >= 12 Then
  98.         If fhour > 12 Then fhour = fhour - 12
  99.         ampm$ = "pm"
  100.     ElseIf fhour = 0 Then
  101.         fhour = 12
  102.         ampm$ = "am"
  103.     End If
  104.     fminute = ((a.r2 And &H7FFF) \ 32) And &H3F
  105.     fsecond = (a.r2 And &H1F) * 2
  106.         
  107.     '=== get the file size
  108.     Open file$ For Binary As #1
  109.     y& = LOF(1)
  110.     Close
  111.         
  112.     '=== display the data in pic1
  113.     pic1.Cls
  114.     pic1.Print file$
  115.     pic1.Print Format$(fmonth, "0#"); "/"; Format$(fday, "0#"); "/"; Format$(fyear, "0#"); "   "; Format$(fhour, "00"); ":"; Format$(fminute, "00"); ":"; Format$(fsecond, "00"); " "; ampm$;
  116.     pic1.Print "  "; Format$(y&, "##,###,###"); " bytes"
  117. End Sub
  118.